(tpu-set-mode-line):

Put mode-line-process immediately after mode-name
when setting mode-line-format.

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 2ae6c52f0f2a91bfe886f3c4306251752fa972bd..ce629caa6ece121920ebc8112007effb71c5041b 100644 (file)
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -196,7 +196,7 @@ GOLD is the ASCII 7-bit escape sequence <ESC>OP.")
                             (purecopy "  ")
                             'tpu-mark-flag
                             (purecopy " %[(")
-                            'mode-name 'minor-mode-alist "%n" 'mode-line-process
+                            'mode-name 'mode-line-process 'minor-mode-alist "%n"
                             (purecopy ")%]----")
                             (purecopy '(-3 . "%p"))
                             (purecopy "-%-")))